library(tidyverse)
library(rstudioapi)
library(readxl)
library(dplyr)

trainBlockA <- read_excel(file.path(rstudioapi::getActiveProject(), "data/trainBlockA.xlsx")) %>%
  mutate(STUDENTID = as.character(STUDENTID))
testBlockA <- read_excel(file.path(rstudioapi::getActiveProject(), "data/testBlockA.xlsx")) %>%
  mutate(STUDENTID = as.character(STUDENTID))
trainBlockB <- read_csv(file.path(rstudioapi::getActiveProject(), "data/trainBlockB.csv"),
                            col_types = "cc")
testBlockB <- read_csv(file.path(rstudioapi::getActiveProject(), "data/updated_testBlockB.csv"),
                        col_types = "cc")
